home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
ttt5.arc
/
DEMO4.EXE
/
lha
/
WINDEM1.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-01-31
|
1KB
|
46 lines
Program WinTTT5_Demo_1;
uses DOS, CRT, FastTTT5, WinTTT5;
var I : integer;
Ch : char;
Procedure Pause;
var Ch : char;
begin
WriteCenter(25,red,white,' press any key to continue ... ');
Ch := Readkey;
end;
begin
Clrscr;
FillScreen(1,1,80,25,white,blue,'1');
GotoXY(80,25); {move the cursor to a unique location}
WriteCenter(1,white,black,' This is screen 1 ');
SaveScreen(1);
Pause;
FillScreen(1,1,80,25,red,lightgray,'2');
SaveScreen(2);
GotoXY(1,1); {put cursor in a different position}
WriteCenter(1,white,lightgray,'Press space bar to restore the screens 100 times el quicko');
pause;
RestoreScreen(1);
For I := 1 to 50 do
begin
RestoreScreen(2);
RestoreScreen(1);
end;
WriteCenter(1,white,lightgray,'Press any key to see the slide restore effect');
WriteCenter(10,yellow,black,'Yes, you just witnessed 100 screen restores in a flash');
pause;
SlideRestoreScreen(2,Left);
SlideRestoreScreen(1,Up);
SlideRestoreScreen(2,Down);
SlideRestoreScreen(1,Right);
WriteCenter(1,white,lightgray,'Press any key to continue');
WriteAT(1,24,white,black,'Run DemoTTT.exe for the main demo program');
WriteAT(1,25,white,black,'TechnoJock''s Turbo Toolkit v5.0');
Ch := Readkey;
Reset_StartUp_Mode;
end.